home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / diskmags / 3565-4.665 / dmg-4180 / source.4u / riley.ben / draw_1.bas (.txt) < prev    next >
Atari STOS Basic  |  1987-04-21  |  956b  |  42 lines
  1. 10 REM ---------------
  2. 100 REM ----> Set up the system for this draw routine
  3. 110 REM 
  4. 120 KEY
  5. 130 AUTO BACK
  6. 140 REM 
  7. 150 REM ----> Set things up i.e. the polymark and ink colour
  8. 160 REM 
  9. 170 SET MARK
  10. 180 INK
  11. 190 PALETTE
  12. 20 REM 
  13. 200 REM 
  14. 210 REM ----> Detect draw , just waits for the mousekey to be pressed
  15. 220 REM 
  16. 230 REPEAT
  17. 240 VARNAME
  18. 250 UNTIL
  19. 260 POLYMARK
  20. 270 HIDE
  21. 280 REM 
  22. 290 REM ----> The draw routine , simple but effective , and can be improved
  23. 30 REM   PENCIL DRAW
  24. 300 REM 
  25. 310 REPEAT
  26. 320 FOR
  27. 330 VARNAME
  28. 340 POLYLINE
  29. 350 UNTIL
  30. 360 REM 
  31. 370 REM ----> Copy the screen to the BACKground so that it doesn't erase
  32. 380 REM 
  33. 390 SCREEN COPY
  34. 40 REM    BY BEN OF
  35. 400 SHOW
  36. 410 GOTO
  37. 50 REM       FRS
  38. 60 REM      v1.2
  39. 70 REM 
  40. 80 REM ---------------
  41. 90 REM 
  42.